home *** CD-ROM | disk | FTP | other *** search
- 0 af=28:gosub1000:rem version 7 - ganz stark verbessert
- 1 dima$(af):gosub200:open4,4:x$=""+chr$(13)+"
- 2 [152]4,"---------------------------------------
- 3 print#4,"basic kontroll system erklaerungen v7
- 4 [152]4,"---------------------------------------
- 5 print#4,"obige tabelle gibt auskunft ueber alle leichten und schweren fehler,
- 6 [152]4,"die im getesteten basic-programm aufgetreten sind.
- 7 print#4:print#4,"basic-programm : "n$
- 8 print#4,"testdatum : "d$
- 9 print#4,"version des testprogrammes: "v$
- 10 print#4:ifpeek(52999)then13
- 11 print#4,"der fehler nr. 2 (ueberfluessige leerzeichen im programmtext)
- 12 [152]4,"wurde nicht gelistet, da er zu haeufig auftrat.":[152]4
- 13 rq$[178]" runtime-konsequenzen"[170]x$
- 14 [141]100:[152]4,"erklaerung der fehler:
- 15 print#4,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":print#4,"beispiel:
- 16 [152]4," 2720: 17[1] ueberfluessiger befehl
- 17 print#4," ^ ^ ^ ^"x$;
- 18 print#4," [221] [221] [221] [202] art des fehlers (pauschaltext)"x$;
- 19 print#4," [221] [221] [221]"x$;
- 20 print#4," [221] [221] [202] fehlergrad: 1 = leichter fehler ohne"rq$;
- 21 print#4," [221] [221] 2 = schwerer fehler, wird fehlermeldung"x$;
- 22 print#4," [221] [221] verursachen"x$;
- 23 print#4," [221] [221]"x$;
- 24 print#4," [221] [202] fehlercodenummer (siehe unten)"x$;
- 25 print#4," [221]"x$;
- 26 print#4," [202] basic programmzeilennummer
- 27 [152]4
- 28 [152]4,"verzeichnis der vorkommenden fehlercodes mit bedeutung:
- 30 print#4,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
- 40 [129]i[178]1[164]af:[139][194](53003[170]i)[178].[167]60
- 50 [152]4,a$(i)
- 60 [130]
- 80 [152]4:[152]4,"(c) nh-201187-arr rev7
- 99 close4:end
- 100 ifpeek(53000)then110
- 101 print#4,"der fehler nr. 8 (sprung auf rem- oder trennzeile)
- 102 [152]4,"wurde nicht gelistet, da er zu haeufig auftrat.":[152]4
- 110 [139][194](53002)[167]120
- 111 [152]4,"die fehler nr. 7 (goto -> struktur) und nr. 17 (then goto)
- 112 print#4,"wurden nicht gelistet, da sie zu haeufig auftraten.":print#4
- 120 ifpeek(53003)then130
- 121 print#4,"die fehler nr. 12, 13 und 14 wurden nicht gelistet.
- 122 [152]4
- 130 [142]
- 200 [129]i[178]1[164]af:b$[178]""
- 202 [135]a$:[139]a$[178]"@"[167]210
- 204 b$[178]b$[170]a$[170][199](13):[137]202
- 210 a$(i)[178][200](b$,[195](b$)[171]1):[130]:[142]
- 1000 [129]i[178]52992[164]52996:a$[178]a$[170][199]([194](i)):[130]:[139]a$[179][177]"nss88"[167]1100
- 1001 [139][194](53001)[178]123[167]1102
- 1002 [139][194](53001)[179][177]222[167]1100
- 1003 [129]i[178].[164]af[171]1:a[178]a[170][194](i[170]53004):[130]:[139]a[178].[167]1104
- 1004 [133]"loaddatum xx.xx.19xxcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";d$
- 1005 [133]"name programm xcmdcmdcmd";n$
- 1006 v$[178][199](48[170][194](52997))[170]"."[170][199](48[170][194](52998))
- 1007 [139]v$[179][177]"5.0"[167]1106
- 1008 [142]
- 1100 [153]"loadbitte erstellen sie erst eine liste mit dem bks (vers. >= 5.0)":[128]
- 1102 [153]"loadbitte unterbrechen sie das bks programm nicht !":[128]
- 1104 [153]"loaddas testprogramm enthielt keine fehler !":[128]
- 1106 [153]"loadfalsche versionsnummer !
- 2000 data1 = direkt nach der zeilennummer folgt ein nullbyte (dies wird zu list-
- 2002 data" schutzzwecken verwendet)",@
- 2004 data2 = im programmtext kommt ein ueberfluessiges leerzeichen vor,@
- 2006 data"3 = ein then, goto, list etc. befehl zeigt auf eine nicht existierende
- 2008 [131]" zeile",@
- 2010 [131]4 = die zeilennummer als parameter ist groesser als 63999,@
- 2012 [131]5 = die zeilennummer als parameter enthaelt falsche zeichen (beispiels-
- 2014 [131]" weise goto 4+6)",@
- 2016 [131]6 = eine basic zeile ist laenger als 255 zeichen,@
- 2018 [131]"7 = ein goto oder then befehl zeigt auf einen befehl wie return, goto,
- 2020 data" end usw., den man auch einfach anstelle des sprungbefehles haette
- 2022 [131]" setzen koennen",@
- 2024 [131]8 = ein sprungbefehl zeigt auf eine rem- oder trennzeile. dies kann zu
- 2026 [131]" problemen beim abtippen fuehren, wenn die angesprungene zeile weg-
- 2028 data" gelassen wird.",@
- 2030 data9 = eine basic zeile ist laenger als 255 zeichen,@
- 2032 data10= ein sprungbefehl zeigt auf sich selbst (z.b. 10 goto 10),@
- 2034 data11= der befehl 'cont' darf nicht im programmtext vorkommen,@
- 2036 data12= der befehl 'stop' sollte nicht im programmtext vorkommen,@
- 2038 data13= der befehl 'new' sollte nicht im programmtext vorkommen,@
- 2040 data14= der befehl 'let' sollte nicht im programmtext vorkommen,@
- 2042 data15= hinter einem rem-befehl steht ein geshiftetes l (listschutz),@
- 2044 data16= ein illegales token kommt im programmtext vor,@
- 2046 data"17= der befehl 'goto' sollte nicht direkt hinter 'then' stehen, einer
- 2048 [131]" von beiden genuegt",@
- 2050 [131]18= hinter einem befehl fehlt der parameter,@
- 2052 [131]19= hinter go fehlt to,@
- 2054 [131]"20= hinter goto, run etc. folgen weitere befehle, die niemals ausge-
- 2056 data" fuehrt werden",@
- 2058 data21= eine oder mehrere klammern zu viel oder zu wenig,@
- 2060 data22= das zeichen '^' zur potenzierung sollte vermieden werden,@
- 2062 data23= der befehl 'print#' wurde mit ?# abgekuerzt,@
- 2064 data24= falsche reihenfolge der basic-zeilen,@
- 2066 data25= ein falscher linkpointer kommt vor,@
- 2068 data26= on ohne legalen sprungbefehl,@
- 2070 data27= then ohne if,@
- 2072 data28= der pointer 45/46 zeigt nicht genau auf das ende des basic-pro-
- 2074 data" grammes",@
- 2100 :
- 2102 rem **********************
- 2103 rem * *
- 2104 rem * fragen ? *
- 2106 rem * nikolaus heusler *
- 2108 rem * zwengauerweg 18 *
- 2110 rem * 8000 muenchen 71 *
- 2112 rem * tel. 089/792940 *
- 2114 rem * *
- 2116 rem * revised 151287 /nh *
- 2117 rem * revised 070188 /nh *
- 2118 rem * *
- 2120 rem * (c)opyright *
- 2122 rem * nig software ser- *
- 2123 rem * vice (nss), *
- 2124 rem * nh-201187-arr *
- 2125 rem * *
- 2126 rem * released for 64'er *
- 2127 rem * leli-test (rs) *
- 2128 rem * *
- 2130 rem **********************
-